From f1e20cc2080c15053b391213ad731c551d750721 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 23 May 1994 07:41:31 +0000
Subject: [PATCH] (popup-dialog-box): Bind meaning with let. (current-menubar):
 Add defvar.

---
 lisp/emacs-lisp/lmenu.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index a8fa759d4d2..80fb1e084c6 100644
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -27,6 +27,8 @@
 
 ;; Arrange to use current-menubar to set up part of the menu bar.
 
+(defvar current-menubar)
+
 (setq recompute-lucid-menubar 'recompute-lucid-menubar)
 (defun recompute-lucid-menubar ()
   (define-key lucid-menubar-map [menu-bar]
@@ -179,7 +181,7 @@ The syntax, more precisely:
   (let ((name (car data))
 	(tail (cdr data))
 	converted
-	choice)
+	choice meaning)
     (while tail
       (if (null (car tail))
 	  (setq converted (cons nil converted))
-- 
2.30.2